home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / mps 802 creater (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.4 KB  |  45 lines
  1. 10 open3,8,3,"mps-802,u,w"
  2. 20 readn:ifn>-1thenprint#3,chr$(n);:goto20
  3. 30 close3
  4. 40 open1,8,15:open2,8,2,"#"
  5. 50 print#1,"m-r"chr$(9)chr$(0):get#1,a$:ds=asc(a$):t=1:s=0
  6. 60 print#1,"b-a 0";t;s:input#1,a,b$,tt,ss:ifa=0then90
  7. 70 t=tt:s=ss:ift=18thent=19:s=0
  8. 80 goto60
  9. 90 print#1,"b-p 2 0":fori=0to255:readn:print#2,chr$(n);:next
  10. 100 print#1,"u2 2 0";t;s:print#1,"u1 2 0 18";ds
  11. 110 n$="":print#1,"b-p 2";p+5:fori=1to7:get#2,a$:n$=n$+a$:next
  12. 120 ifn$<>"mps-802"thenp=p+32:goto110
  13. 130 print#1,"b-p 2";p+2:print#2,chr$(195);
  14. 140 print#1,"b-p 2";p+21:print#2,chr$(t);chr$(s);
  15. 150 fori=1to8:readn:print#2,chr$(n);:next
  16. 160 print#1,"u2 2 0 18";ds:close2:close1
  17. 170 data96,234,234,76,25,121,76,70,121,76,178,121,76,212,121,0,0,0,0,0,0,0
  18. 180 data0,0,0,169,4,32,176,194,32,92,194,169,126,160,6,32,46,122,162,126,32
  19. 190 data201,255,32,183,255,141,23,121,208,5,169,21,32,202,241,169,126,32,195
  20. 200 data255,32,95,194,174,23,121,96,169,4,32,176,194,32,92,194,169,124,160
  21. 210 data0,32,46,122,169,125,160,5,32,46,122,162,124,32,201,255,169,141,32,202
  22. 220 data241,165,3,133,9,165,2,133,8,169,0,141,24,121,32,219,121,144,39,32,242
  23. 230 data121,32,5,122,174,24,121,240,8,169,32,32,202,241,202,208,250,169,254
  24. 240 data32,202,241,169,141,32,202,241,32,29,122,174,24,121,224,80,208,212,169
  25. 250 data13,32,202,241,169,125,32,195,255,169,124,32,195,255,32,95,194,96,169
  26. 260 data4,32,176,194,32,92,194,169,124,160,0,32,46,122,162,124,32,201,255,169
  27. 270 data12,32,202,241,169,124,32,195,255,32,95,194,96,169,0,162,80,160,90,96
  28. 280 data160,7,177,8,208,15,136,16,249,32,29,122,174,24,121,224,80,208,237,24
  29. 290 data96,56,96,120,160,7,177,8,162,7,106,126,15,121,202,16,249,136,16,242
  30. 300 data88,96,162,125,32,201,255,162,0,189,15,121,32,202,241,232,224,8,208
  31. 310 data245,162,124,32,201,255,96,24,165,8,105,8,133,8,165,9,105,0,133,9,238
  32. 320 data24,121,96,162,4,32,186,255,169,0,32,189,255,76,192,255,-1
  33. 330 data0,255,3,21,191,255,255,255,128,0,1,128,63,241,128,64,97,128,87,97,128
  34. 340 data64,97,128,66,97,128,128,193,131,8,253,133,0,205,137,255,221,144,0,61
  35. 350 data191,255,253,160,0,121,167,243,113,160,0,97,191,255,193,128,0,1,128
  36. 360 data0,1,128,0,1,255,255,255,131,9,0,0,121,59,122,0,0,80,114,105,110,116
  37. 370 data100,114,105,118,101,114,32,86,49,46,50,0,0,0,0,80,101,116,101,114,32
  38. 380 data66,114,101,109,101,114,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  39. 390 data0,0,0,0,0,0,32,176,194,32,161,194,224,13,240,52,169,2,141,141,132,138
  40. 400 data208,41,169,130,133,3,169,70,111,114,32,67,111,109,109,111,100,111,114
  41. 410 data101,32,77,80,83,45,56,48,50,46,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  42. 420 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,65,2,0,0,181
  43. 430 data132,1,0,85,65,3,0,0,0,169,132,2,227,33,141,132,1,1,0,0,169,4,208
  44. 440 data0,9,86,12,10,14,0,3
  45.